www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Model\ComponentLabels\内容分类下拉选择框控件\editmode_label.asp
<%'$start_ext_newDsoft 以下系统生成,勿删! '$newDsoft_label_type$:asp_label$end_newDsoft_label_type$ '$newDsoft_label_name$:$editmode$-ComponentLabel-$$end_newDsoft_label_name$ '$newDsoft_label_sql$: $end_newDsoft_label_sql$ '$newDsoft_label_params$:flbiao,分类表名$end_newDsoft_label_params$ '$newDsoft_label_fenye_num$: $end_newDsoft_label_fenye_num$ '$newDsoft_label_beizhu$:在修改页里的标签$end_newDsoft_label_beizhu$ '$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$ '$newDsoft_other_params$:htmledxa:|htmledxb:$end_newDsoft_other_params$ '$end_ext_newDsoft%><% nd_fenleib_n_id=$mylast$value$&"" function next_cen$$xxxx_d_soft_complie$$rnd$(pid_list,deepth) set rs=server.CreateObject("adodb.recordset") pppcid="-123" if pid_list<>"" then ppplista=split(pid_list,",") ppplistaubd=ubound(ppplista)-1 pppcid=ppplista(ppplistaubd) end if rs.open "select * from $model$biaoqz$$xxvar$flbiao where ((deepth="&deepth&" and ((parent_id_list like '%"&pid_list&"%') or (parent_id='"&pppcid&"')))) order by orders asc",newdsoft_conn_obj,1,1 if pid_list<>"" then lista=split(pid_list,",") numa=ubound(lista) p_id=cstr(lista(numa)) else p_id=0 end if do while not rs.eof pid_list222=rs("parent_id_list")&","&rs("id")&"," deepth222=rs("deepth")+1 set rs2=server.CreateObject("adodb.recordset") rs2.open "select * from $model$biaoqz$$xxvar$flbiao where ((deepth="&deepth222&" and ((parent_id_list like '%"&pid_list222&"%') or (parent_id='"&rs("id")&"')))) order by orders asc",newdsoft_conn_obj,1,1 if rs2.eof then if pid_list<>"" then lista=split(pid_list,",") numa=ubound(lista) p_id=cstr(lista(numa-1)) else p_id=0 end if if p_id=0 then p_id=-1 'response.write "<level1 id="""&rs("id")&""" parentTypeID="""&p_id&""" caption="""&rs("ClassName")&""" PRI=""1"" explain="""&rs("id")&"""/>"&vbcrlf %> <%="<option value="&rs("id")&" "%><%if cstr(rs("id"))=cstr(nd_fenleib_n_id) then response.write "selected"%><%=">"%> <%for iiiii1=1 to cint(deepth222) if iiiii1=cint(deepth222) then %> ├<% else %> │<% end if next %><%=rs("classname")%> <%="</option>"%> <% if not rs.eof then rs.movenext if rs.eof or rs.bof then 'response.write "</level0>" 'call next_cen_class(pid_list222,deepth222) exit function else need_benji_next=1 end if else 'response.write "<level0 id="""&rs("id")&""" parentTypeID=""" 'if deepth=0 then response.write "-1" else response.write p_id 'response.write """ caption="""&rs("ClassName")&""" PRI=""2"" explain="""&rs("id")&""" >"&vbcrlf %> <%="<option value="&rs("id")&" "%><%if cstr(rs("id"))=cstr(nd_fenleib_n_id) then response.write "selected"%><%=">"%> <%for iiiii1=1 to cint(deepth222) if iiiii1=cint(deepth222) then %> ├<% else %> │<% end if next %><%=rs("classname")%> <%="</option>"%> <% call next_cen$$xxxx_d_soft_complie$$rnd$(pid_list222,deepth222) if not rs.eof then rs.movenext need_benji_next=1 if rs.eof or rs.bof then 'if deepth<>0 then response.write "</level0>" 'call next_cen_class(pid_list222,deepth222) exit function end if end if if need_benji_next=0 then exit do end if need_benji_next=0 loop end function %> <%="<select name='$post$myname$'>"%> <%="<option value='no'>请选择</option>"%> <% call next_cen$$xxxx_d_soft_complie$$rnd$("",0) %> <%="</select>"%>